Komputer for Alle 2001 #9/CD 9 (Black) - 2001.iso/K-CS.dcr/00015.ls

Text File | 2001-05-17 | 17.9 KB | 435 lines

on mouseWithin me
  if the mouseH < 75 then
    if the mouseV < 195 then
      set the text of cast member "VisTegn" to ">"
      set the text of cast member "Keycode" to "Code: Alt + 060"
    else
      if the mouseV < 220 then
        set the text of cast member "VisTegn" to "P"
        set the text of cast member "Keycode" to "Code: Alt + 080"
      else
        if the mouseV < 245 then
          set the text of cast member "VisTegn" to "b"
          set the text of cast member "Keycode" to "Code: Alt + 098"
        else
          if the mouseV < 270 then
            set the text of cast member "VisTegn" to "t"
            set the text of cast member "Keycode" to "Code: Alt + 0116"
          else
            if the mouseV < 295 then
              set the text of cast member "VisTegn" to "┬╝"
              set the text of cast member "Keycode" to "Code: Alt + 0188"
            else
              if the mouseV < 320 then
                set the text of cast member "VisTegn" to "Î"
                set the text of cast member "Keycode" to "Code: Alt + 0206"
              else
                if the mouseV < 345 then
                  set the text of cast member "VisTegn" to "à"
                  set the text of cast member "Keycode" to "Code: Alt + 0224"
                else
                  set the text of cast member "VisTegn" to "├▓"
                  set the text of cast member "Keycode" to "Code: Alt + 0242"
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  else
    if the mouseH < 98 then
      if the mouseV < 195 then
        set the text of cast member "VisTegn" to "?"
        set the text of cast member "Keycode" to "Code: Alt + 063"
      else
        if the mouseV < 220 then
          set the text of cast member "VisTegn" to "Q"
          set the text of cast member "Keycode" to "Code: Alt + 081"
        else
          if the mouseV < 245 then
            set the text of cast member "VisTegn" to "c"
            set the text of cast member "Keycode" to "Code: Alt + 099"
          else
            if the mouseV < 270 then
              set the text of cast member "VisTegn" to "u"
              set the text of cast member "Keycode" to "Code: Alt + 0117"
            else
              if the mouseV < 295 then
                set the text of cast member "VisTegn" to "┬╜"
                set the text of cast member "Keycode" to "Code: Alt + 0189"
              else
                if the mouseV < 320 then
                  set the text of cast member "VisTegn" to "Ï"
                  set the text of cast member "Keycode" to "Code: Alt + 0207"
                else
                  if the mouseV < 345 then
                    set the text of cast member "VisTegn" to "á"
                    set the text of cast member "Keycode" to "Code: Alt + 0225"
                  else
                    set the text of cast member "VisTegn" to "├│"
                    set the text of cast member "Keycode" to "Code: Alt + 0243"
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    else
      if the mouseH < 125 then
        if the mouseV < 195 then
          set the text of cast member "VisTegn" to "@"
          set the text of cast member "Keycode" to "Code: Alt + 064"
        else
          if the mouseV < 220 then
            set the text of cast member "VisTegn" to "R"
            set the text of cast member "Keycode" to "Code: Alt + 082"
          else
            if the mouseV < 245 then
              set the text of cast member "VisTegn" to "d"
              set the text of cast member "Keycode" to "Code: Alt + 0100"
            else
              if the mouseV < 270 then
                set the text of cast member "VisTegn" to "v"
                set the text of cast member "Keycode" to "Code: Alt + 0118"
              else
                if the mouseV < 295 then
                  set the text of cast member "VisTegn" to "┬░"
                  set the text of cast member "Keycode" to "Code: Alt + 0190"
                else
                  if the mouseV < 320 then
                    set the text of cast member "VisTegn" to "Ð"
                    set the text of cast member "Keycode" to "Code: Alt + 0208"
                  else
                    if the mouseV < 345 then
                      set the text of cast member "VisTegn" to "â"
                      set the text of cast member "Keycode" to "Code: Alt + 0226"
                    else
                      set the text of cast member "VisTegn" to "├┤"
                      set the text of cast member "Keycode" to "Code: Alt + 0244"
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      else
        if the mouseH < 147 then
          if the mouseV < 195 then
            set the text of cast member "VisTegn" to "A"
            set the text of cast member "Keycode" to "Code: Alt + 065"
          else
            if the mouseV < 220 then
              set the text of cast member "VisTegn" to "S"
              set the text of cast member "Keycode" to "Code: Alt + 083"
            else
              if the mouseV < 245 then
                set the text of cast member "VisTegn" to "e"
                set the text of cast member "Keycode" to "Code: Alt + 0101"
              else
                if the mouseV < 270 then
                  set the text of cast member "VisTegn" to "w"
                  set the text of cast member "Keycode" to "Code: Alt + 0119"
                else
                  if the mouseV < 295 then
                    set the text of cast member "VisTegn" to "┬┐"
                    set the text of cast member "Keycode" to "Code: Alt + 0191"
                  else
                    if the mouseV < 320 then
                      set the text of cast member "VisTegn" to "Ñ"
                      set the text of cast member "Keycode" to "Code: Alt + 0209"
                    else
                      if the mouseV < 345 then
                        set the text of cast member "VisTegn" to "ã"
                        set the text of cast member "Keycode" to "Code: Alt + 0227"
                      else
                        set the text of cast member "VisTegn" to "├╡"
                        set the text of cast member "Keycode" to "Code: Alt + 0245"
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if the mouseH < 170 then
            if the mouseV < 195 then
              set the text of cast member "VisTegn" to "B"
              set the text of cast member "Keycode" to "Code: Alt + 066"
            else
              if the mouseV < 220 then
                set the text of cast member "VisTegn" to "T"
                set the text of cast member "Keycode" to "Code: Alt + 084"
              else
                if the mouseV < 245 then
                  set the text of cast member "VisTegn" to "f"
                  set the text of cast member "Keycode" to "Code: Alt + 0102"
                else
                  if the mouseV < 270 then
                    set the text of cast member "VisTegn" to "x"
                    set the text of cast member "Keycode" to "Code: Alt + 0120"
                  else
                    if the mouseV < 295 then
                      set the text of cast member "VisTegn" to "À"
                      set the text of cast member "Keycode" to "Code: Alt + 0192"
                    else
                      if the mouseV < 320 then
                        set the text of cast member "VisTegn" to "Ò"
                        set the text of cast member "Keycode" to "Code: Alt + 0210"
                      else
                        if the mouseV < 345 then
                          set the text of cast member "VisTegn" to "ä"
                          set the text of cast member "Keycode" to "Code: Alt + 0228"
                        else
                          set the text of cast member "VisTegn" to "├╢"
                          set the text of cast member "Keycode" to "Code: Alt + 0246"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if the mouseV < 195 then
              set the text of cast member "VisTegn" to "C"
              set the text of cast member "Keycode" to "Code: Alt + 067"
            else
              if the mouseV < 220 then
                set the text of cast member "VisTegn" to "U"
                set the text of cast member "Keycode" to "Code: Alt + 085"
              else
                if the mouseV < 245 then
                  set the text of cast member "VisTegn" to "g"
                  set the text of cast member "Keycode" to "Code: Alt + 0103"
                else
                  if the mouseV < 270 then
                    set the text of cast member "VisTegn" to "y"
                    set the text of cast member "Keycode" to "Code: Alt + 0121"
                  else
                    if the mouseV < 295 then
                      set the text of cast member "VisTegn" to "Á"
                      set the text of cast member "Keycode" to "Code: Alt + 0193"
                    else
                      if the mouseV < 320 then
                        set the text of cast member "VisTegn" to "Ó"
                        set the text of cast member "Keycode" to "Code: Alt + 0211"
                      else
                        if the mouseV < 345 then
                          set the text of cast member "VisTegn" to "å"
                          set the text of cast member "Keycode" to "Code: Alt + 0229"
                        else
                          set the text of cast member "VisTegn" to "├╖"
                          set the text of cast member "Keycode" to "Code: Alt + 0247"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mouseDown me
  if the doubleClick then
    if the mouseH < 75 then
      if the mouseV < 195 then
        set Klippetekst to the text of cast member "ClipText" & ">"
      else
        if the mouseV < 220 then
          set Klippetekst to the text of cast member "ClipText" & "P"
        else
          if the mouseV < 245 then
            set Klippetekst to the text of cast member "ClipText" & "b"
          else
            if the mouseV < 270 then
              set Klippetekst to the text of cast member "ClipText" & "t"
            else
              if the mouseV < 295 then
                set Klippetekst to the text of cast member "ClipText" & "┬╝"
              else
                if the mouseV < 320 then
                  set Klippetekst to the text of cast member "ClipText" & "Î"
                else
                  if the mouseV < 345 then
                    set Klippetekst to the text of cast member "ClipText" & "à"
                  else
                    set Klippetekst to the text of cast member "ClipText" & "├▓"
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    else
      if the mouseH < 98 then
        if the mouseV < 195 then
          set Klippetekst to the text of cast member "ClipText" & "?"
        else
          if the mouseV < 220 then
            set Klippetekst to the text of cast member "ClipText" & "Q"
          else
            if the mouseV < 245 then
              set Klippetekst to the text of cast member "ClipText" & "c"
            else
              if the mouseV < 270 then
                set Klippetekst to the text of cast member "ClipText" & "u"
              else
                if the mouseV < 295 then
                  set Klippetekst to the text of cast member "ClipText" & "┬╜"
                else
                  if the mouseV < 320 then
                    set Klippetekst to the text of cast member "ClipText" & "Ï"
                  else
                    if the mouseV < 345 then
                      set Klippetekst to the text of cast member "ClipText" & "á"
                    else
                      set Klippetekst to the text of cast member "ClipText" & "├│"
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      else
        if the mouseH < 125 then
          if the mouseV < 195 then
            set Klippetekst to the text of cast member "ClipText" & "@"
          else
            if the mouseV < 220 then
              set Klippetekst to the text of cast member "ClipText" & "R"
            else
              if the mouseV < 245 then
                set Klippetekst to the text of cast member "ClipText" & "d"
              else
                if the mouseV < 270 then
                  set Klippetekst to the text of cast member "ClipText" & "v"
                else
                  if the mouseV < 295 then
                    set Klippetekst to the text of cast member "ClipText" & "┬░"
                  else
                    if the mouseV < 320 then
                      set Klippetekst to the text of cast member "ClipText" & "Ð"
                    else
                      if the mouseV < 345 then
                        set Klippetekst to the text of cast member "ClipText" & "â"
                      else
                        set Klippetekst to the text of cast member "ClipText" & "├┤"
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if the mouseH < 147 then
            if the mouseV < 195 then
              set Klippetekst to the text of cast member "ClipText" & "A"
            else
              if the mouseV < 220 then
                set Klippetekst to the text of cast member "ClipText" & "S"
              else
                if the mouseV < 245 then
                  set Klippetekst to the text of cast member "ClipText" & "e"
                else
                  if the mouseV < 270 then
                    set Klippetekst to the text of cast member "ClipText" & "w"
                  else
                    if the mouseV < 295 then
                      set Klippetekst to the text of cast member "ClipText" & "┬┐"
                    else
                      if the mouseV < 320 then
                        set Klippetekst to the text of cast member "ClipText" & "Ñ"
                      else
                        if the mouseV < 345 then
                          set Klippetekst to the text of cast member "ClipText" & "ã"
                        else
                          set Klippetekst to the text of cast member "ClipText" & "├╡"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if the mouseH < 170 then
              if the mouseV < 195 then
                set Klippetekst to the text of cast member "ClipText" & "B"
              else
                if the mouseV < 220 then
                  set Klippetekst to the text of cast member "ClipText" & "T"
                else
                  if the mouseV < 245 then
                    set Klippetekst to the text of cast member "ClipText" & "f"
                  else
                    if the mouseV < 270 then
                      set Klippetekst to the text of cast member "ClipText" & "x"
                    else
                      if the mouseV < 295 then
                        set Klippetekst to the text of cast member "ClipText" & "À"
                      else
                        if the mouseV < 320 then
                          set Klippetekst to the text of cast member "ClipText" & "Ò"
                        else
                          if the mouseV < 345 then
                            set Klippetekst to the text of cast member "ClipText" & "ä"
                          else
                            set Klippetekst to the text of cast member "ClipText" & "├╢"
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            else
              if the mouseV < 195 then
                set Klippetekst to the text of cast member "ClipText" & "C"
              else
                if the mouseV < 220 then
                  set Klippetekst to the text of cast member "ClipText" & "U"
                else
                  if the mouseV < 245 then
                    set Klippetekst to the text of cast member "ClipText" & "g"
                  else
                    if the mouseV < 270 then
                      set Klippetekst to the text of cast member "ClipText" & "y"
                    else
                      if the mouseV < 295 then
                        set Klippetekst to the text of cast member "ClipText" & "Á"
                      else
                        if the mouseV < 320 then
                          set Klippetekst to the text of cast member "ClipText" & "Ó"
                        else
                          if the mouseV < 345 then
                            set Klippetekst to the text of cast member "ClipText" & "å"
                          else
                            set Klippetekst to the text of cast member "ClipText" & "├╖"
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
    set the text of cast member "ClipText" to Klippetekst
  end if
end